home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Graphics / SMan / MorphOS / Source / TGmos.asm < prev    next >
Encoding:
Assembly Source File  |  2001-02-26  |  3.9 KB  |  308 lines
  1.  
  2.  
  3. #    .global    @_TimeGet
  4.     .text
  5.     .sdreg    13
  6.     .global    TimeGet
  7.     .align    4
  8. TimeGet:
  9.     mflr    11
  10.     stw    11,4(1)    #Save return address
  11.  
  12. Loop:
  13.     mftbu    12        #Get high value
  14.     mftb    13        #Get low value
  15.     mftbu    14        #Get high again
  16.     cmpw    14,12        #See if no change
  17.     bne    Loop        #Repeat if there was
  18.     lis    8,TimeHi@ha
  19.     stw    12,TimeHi@l(8)
  20.     lis    8,TimeLo@ha
  21.     stw    13,TimeLo@l(8)
  22.  
  23.  
  24.     lwz    11,4(1)    #Get return address
  25.     mtlr    11
  26.     blr
  27.     .type    TimeGet,@function
  28.     .size    TimeGet,$-TimeGet
  29.  
  30.     .globl    TimeHi
  31.     .globl    TimeLo
  32.  
  33.     .text
  34.     .sdreg    13
  35.     .global    TimeGet2
  36.     .align    4
  37. TimeGet2:
  38.     mflr    11
  39.     stw    11,4(1)    #Save return address
  40.     fmr    6,1
  41.     fdiv    5,6,6
  42.     fadd    5,5,5        #f5 is 2.
  43. Loop1:
  44.     mftbu    12        #Get high value
  45.     mftb    13        #Get low value
  46.     mftbu    14        #Get high again
  47.     cmpw    14,12        #See if no change
  48.     bne    Loop1        #Repeat if there was
  49.     lis    8,Time1Hi@ha
  50.     stw    12,Time1Hi@l(8)
  51.     lis    8,Time1Lo@ha
  52.     stw    13,Time1Lo@l(8)
  53.  
  54.  
  55.     lis    10,32767
  56.     lis    11,-1
  57. Waster:
  58.  
  59.     fmul    6,6,5
  60.     fmul    6,6,5
  61.     fmul    6,6,5
  62.     fmul    6,6,5
  63.     fmul    6,6,5
  64.           fmul    6,6,5
  65.     fmul    6,6,5
  66.     fmul    6,6,5
  67.     fmul    6,6,5
  68.     fmul    6,6,5   #1
  69.  
  70.     fmul    6,6,5
  71.     fmul    6,6,5
  72.     fmul    6,6,5
  73.            fmul    6,6,5
  74.     fmul    6,6,5
  75.     fmul    6,6,5
  76.     fmul    6,6,5
  77.     fmul    6,6,5
  78.     fmul    6,6,5
  79.     fmul    6,6,5   #2
  80.  
  81.     fmul    6,6,5
  82.     fmul    6,6,5
  83.     fmul    6,6,5
  84.     fmul    6,6,5
  85.     fmul    6,6,5
  86.     fmul    6,6,5
  87.           fmul    6,6,5
  88.     fmul    6,6,5
  89.     fmul    6,6,5
  90.     fmul    6,6,5   #3
  91.  
  92.     fmul    6,6,5
  93.     fmul    6,6,5
  94.     fmul    6,6,5
  95.     fmul    6,6,5
  96.            fmul    6,6,5
  97.     fmul    6,6,5
  98.     fmul    6,6,5
  99.     fmul    6,6,5
  100.     fmul    6,6,5
  101.     fmul    6,6,5   #4
  102.  
  103.     fmul    6,6,5
  104.     fmul    6,6,5
  105.     fmul    6,6,5
  106.     fmul    6,6,5
  107.            fmul    6,6,5
  108.     fmul    6,6,5
  109.     fmul    6,6,5
  110.     fmul    6,6,5
  111.     fmul    6,6,5
  112.     fmul    6,6,5   #5
  113.  
  114.     fmul    6,6,5
  115.     fmul    6,6,5
  116.     fmul    6,6,5
  117.     fmul    6,6,5
  118.     fmul    6,6,5
  119.           fmul    6,6,5
  120.     fmul    6,6,5
  121.     fmul    6,6,5
  122.     fmul    6,6,5
  123.     fmul    6,6,5   #6
  124.  
  125.     fmul    6,6,5
  126.     fmul    6,6,5
  127.     fmul    6,6,5
  128.            fmul    6,6,5
  129.     fmul    6,6,5
  130.     fmul    6,6,5
  131.     fmul    6,6,5
  132.     fmul    6,6,5
  133.     fmul    6,6,5
  134.     fmul    6,6,5   #7
  135.  
  136.     fmul    6,6,5
  137.     fmul    6,6,5
  138.     fmul    6,6,5
  139.     fmul    6,6,5
  140.     fmul    6,6,5
  141.     fmul    6,6,5
  142.           fmul    6,6,5
  143.     fmul    6,6,5
  144.     fmul    6,6,5
  145.     fmul    6,6,5   #8
  146.  
  147.     fmul    6,6,5
  148.     fmul    6,6,5
  149.     fmul    6,6,5
  150.     fmul    6,6,5
  151.            fmul    6,6,5
  152.     fmul    6,6,5
  153.     fmul    6,6,5
  154.     fmul    6,6,5
  155.     fmul    6,6,5
  156.     fmul    6,6,5   #9
  157.  
  158.     fmul    6,6,5
  159.     fmul    6,6,5
  160.     fmul    6,6,5
  161.     fmul    6,6,5
  162.            fmul    6,6,5
  163.     fmul    6,6,5
  164.     fmul    6,6,5
  165.     fmul    6,6,5
  166.     fmul    6,6,5
  167.     fmul    6,6,5   #10
  168.  
  169.  
  170.     fmul    6,6,5
  171.     fmul    6,6,5
  172.     fmul    6,6,5
  173.     fmul    6,6,5
  174.     fmul    6,6,5
  175.           fmul    6,6,5
  176.     fmul    6,6,5
  177.     fmul    6,6,5
  178.     fmul    6,6,5
  179.     fmul    6,6,5   #11
  180.  
  181.     fmul    6,6,5
  182.     fmul    6,6,5
  183.     fmul    6,6,5
  184.            fmul    6,6,5
  185.     fmul    6,6,5
  186.     fmul    6,6,5
  187.     fmul    6,6,5
  188.     fmul    6,6,5
  189.     fmul    6,6,5
  190.     fmul    6,6,5   #12
  191.  
  192.     fmul    6,6,5
  193.     fmul    6,6,5
  194.     fmul    6,6,5
  195.     fmul    6,6,5
  196.     fmul    6,6,5
  197.     fmul    6,6,5
  198.           fmul    6,6,5
  199.     fmul    6,6,5
  200.     fmul    6,6,5
  201.     fmul    6,6,5   #13
  202.  
  203.     fmul    6,6,5
  204.     fmul    6,6,5
  205.     fmul    6,6,5
  206.     fmul    6,6,5
  207.            fmul    6,6,5
  208.     fmul    6,6,5
  209.     fmul    6,6,5
  210.     fmul    6,6,5
  211.     fmul    6,6,5
  212.     fmul    6,6,5   #14
  213.  
  214.     fmul    6,6,5
  215.     fmul    6,6,5
  216.     fmul    6,6,5
  217.     fmul    6,6,5
  218.            fmul    6,6,5
  219.     fmul    6,6,5
  220.     fmul    6,6,5
  221.     fmul    6,6,5
  222.     fmul    6,6,5
  223.     fmul    6,6,5   #15
  224.  
  225.     fmul    6,6,5
  226.     fmul    6,6,5
  227.     fmul    6,6,5
  228.     fmul    6,6,5
  229.     fmul    6,6,5
  230.           fmul    6,6,5
  231.     fmul    6,6,5
  232.     fmul    6,6,5
  233.     fmul    6,6,5
  234.     fmul    6,6,5   #16
  235.  
  236.     fmul    6,6,5
  237.     fmul    6,6,5
  238.     fmul    6,6,5
  239.            fmul    6,6,5
  240.     fmul    6,6,5
  241.     fmul    6,6,5
  242.     fmul    6,6,5
  243.     fmul    6,6,5
  244.     fmul    6,6,5
  245.     fmul    6,6,5   #17
  246.  
  247.     fmul    6,6,5
  248.     fmul    6,6,5
  249.     fmul    6,6,5
  250.     fmul    6,6,5
  251.     fmul    6,6,5
  252.     fmul    6,6,5
  253.           fmul    6,6,5
  254.     fmul    6,6,5
  255.     fmul    6,6,5
  256.     fmul    6,6,5   #18
  257.  
  258.     fmul    6,6,5
  259.     fmul    6,6,5
  260.     fmul    6,6,5
  261.     fmul    6,6,5
  262.            fmul    6,6,5
  263.     fmul    6,6,5
  264.     fmul    6,6,5
  265.     fmul    6,6,5
  266.     fmul    6,6,5
  267.     fmul    6,6,5   #19
  268.  
  269.     fmul    6,6,5
  270.     fmul    6,6,5
  271.     fmul    6,6,5
  272.     fmul    6,6,5
  273.            fmul    6,6,5
  274.     fmul    6,6,5
  275.     fmul    6,6,5
  276.     fmul    6,6,5
  277.     fmul    6,6,5
  278.     fmul    6,6,5   #20
  279.  
  280.     add    10,10,11
  281.     cmpwi    0,10,0
  282.     bne    Waster
  283.  
  284. Loop2:
  285.     mftbu    12        #Get high value
  286.     mftb    13        #Get low value
  287.     mftbu    14        #Get high again
  288.     cmpw    14,12        #See if no change
  289.     bne    Loop2        #Repeat if there was
  290.     lis    8,Time2Hi@ha
  291.     stw    12,Time2Hi@l(8)
  292.     lis    8,Time2Lo@ha
  293.     stw    13,Time2Lo@l(8)
  294.  
  295.  
  296.     lwz    11,4(1)    #Get return address
  297.     mtlr    11
  298.     blr
  299.     .type    TimeGet2,@function
  300.     .size    TimeGet2,$-TimeGet2
  301.  
  302.     .globl    Time1Hi
  303.     .globl    Time1Lo
  304.     .globl    Time2Hi
  305.     .globl    Time2Lo
  306.  
  307.  
  308.